home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 10,000 to 10,999 / 10000.zip / AOLDLs / The _Other_ Gallery / Win_ eSpew#1 Multimedia E-zine / ESPW1.exe / ESPEW#1.EXE / ESPEW#1.DXR / 00248.ls < prev    next >
Encoding:
Text File  |  1995-10-26  |  200 b   |  12 lines
  1. on mouseUp
  2.   global gBiz2, BizList
  3.   if gBiz2 = 1 then
  4.     set gBiz2 to 0
  5.     setAt(BizList, 2, EMPTY)
  6.   else
  7.     set gBiz2 to 1
  8.     setAt(BizList, 2, "-Biz├íra#2" & RETURN)
  9.   end if
  10.   calcCost()
  11. end
  12.